home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / Fire.AMOS / Fire.amosSourceCode
AMOS Source Code  |  1997-04-18  |  2KB  |  53 lines
  1. Hide 
  2. WX=160 : WY=128
  3. Screen Open 0,320,256,32,0
  4. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  5.  Extension_8_1722 0,0 To 15,$F00 : Extension_8_1722 15,$F00 To 28,$FF0 : Extension_8_1722 28,$FF0 To 31,$FFF
  6. 'Bank Copy 8 To 9
  7. Reserve As Work 9,WX*WY+WX*4
  8. Reserve As Work 10,WX*WY+WX*4
  9. MAD=WX*WY-1
  10. Wait Vbl 
  11. Limit Mouse 
  12. Repeat 
  13. '  Wait Vbl  
  14.   ST1=Start(9)+WX : ST2=Start(10)+WX
  15.   XM= Extension_8_1632(X Screen(X Mouse),4 To WX-5) : YM= Extension_8_1632(Y Screen(Y Mouse),4 To WY-5)
  16.   Copy ST1,ST1+MAD+1 To ST2
  17.    Extension_8_178E ST2,WX,WY-1 To ST1,0
  18.   ST=ST1+XM+YM*WX
  19.   Poke ST,31
  20. '  Poke ST-1,224 : Poke ST+1,224 
  21. '  Poke ST-WX,224 : Poke ST+WX,224 
  22. '  Poke ST-1-WX,192 : Poke ST+1-WX,192 
  23. '  Poke ST-1+WX,192 : Poke ST+1+WX,192 
  24. '  For A=0 To 99 
  25. '    Poke ST1+(WY-(Rnd(2)+1))*WX+Rnd(WX-1),255 
  26. '    Poke ST1+WX*Rnd(WY-1)+Rnd(WX-1),255 
  27. '  Next  
  28. '  ST=ST1+WX*(WY-1)
  29. '  Fill ST To ST+WX,0
  30.    Extension_8_1776 ST1,WX,WY To ST2,0
  31.    Extension_8_175A ST2,WX,WY-2 To 0,0,0
  32. Until Mouse Key
  33. While Mouse Key : Wend 
  34. Repeat 
  35.   Wait Vbl 
  36.   ST1=Start(9)+WX : ST2=Start(10)+WX
  37.   XM= Extension_8_1632(X Screen(X Mouse),4 To WX-5) : YM= Extension_8_1632(Y Screen(Y Mouse),4 To WY-5)
  38.   Copy ST1,ST1+MAD+1 To ST2
  39.    Extension_8_178E ST2+WX,WX,WY-1 To ST1,1
  40.   ST=ST1+XM+YM*WX
  41.   Poke ST,255
  42.   Poke ST-1,224 : Poke ST+1,224
  43.   Poke ST-WX,224 : Poke ST+WX,224
  44.   Poke ST-1-WX,192 : Poke ST+1-WX,192
  45.   Poke ST-1+WX,192 : Poke ST+1+WX,192
  46.   For A=0 To 99
  47.     Poke ST1+(WY-(Rnd(2)+1))*WX+Rnd(WX-1),255
  48.   Next 
  49.   ST=ST1+WX*(WY-1)
  50.   Fill ST To ST+WX,0
  51.    Extension_8_1776 ST1,WX,WY To ST2,3
  52.    Extension_8_175A ST2,WX,WY-3 To 0,0,0
  53. Until Mouse Key